home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
wtjmarch.zip
/
DDEBMP.ZIP
/
FILEBMP.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-12-18
|
3KB
|
87 lines
DDE BMP Server
Form1
Drive1
FileList
FName
(none)
Drive1_Change
Dir1_Change
File1_Click,
Dir1e
Drive1
Drive
File1
ListCount
ListIndexJ
File1_DblClickE
Form_Click
@ Form_Load
PatternC
Picture1_Click
Picture1V
PictureO
FileName
Picture1_Change
DDEServer
LinkTopic
Form_LinkOpen
Cancel
LinkModes
ServerBMP
Text1
LinkItem
ServerBMP_Click
ServerBMP_LinkOpen
BMP_Click
BMP_LinkOpen
Form_LinkError
LinkErra
Form_LinkExecute
CmdStr
Form_LinkClose
Label1_ClickN
BMP_Change
FName
Caption
FNmae=
FName_Click
FileList
FileList_Click
FileList_DblClick
Command1_Click.
DblClick
LoadFile
FileLoad
FNameUpdate
false
FileList_PathChange
Drive1_Change
User selected new disk drive...tell the dir controlt
Dir1_Change
User selected a new directory...tell the FileList control
Form_Load
*.BMP"
Only see BMP filese
Setup to be a server with the topic DDE
Form_LinkClose
The DDE link closed so disappearp
FileList_DblClick
User has specifically selected a new file...e
grab the new BMP and put it in the picture controlt
FNameUpdate
Either the user or the DDE link updated the filename...
so update the (hidden) fname control caption with...h
the new name and grab the BMP into the picturet
Form_LinkExecute
The DDE client asked for the next BMP file in the...e
directory. Since that is the only possible command...
there is no need to check the CmdStrs
Tell the client okayl
Check to make sure there are files to work with...h
and then move to the next one, wrapping to the...
beginning of the list when at the end
FileList_PathChange
User has changed the path for the file list...t
update the index and count and grab a new BMP if thereh
is one in the directory